﻿Public Class Rendez_vous
    Public Id As Integer
    Public Date_rendez_vous As Date
    Public Nom_complet As String
    Public Cause As String
    Public Heure As String
    Public Remarque As String

    'les connstructeurs--------------------

    Sub New(ByVal Id As Integer, ByVal Date_rendez_vous As Date, ByVal Nom_complet As String, ByVal Cause As String, ByVal Heure As String, ByVal Remarque As String)
        Me.Id = Id
        Me.Date_rendez_vous = Date_rendez_vous
        Me.Nom_complet = Nom_complet
        Me.Cause = Cause
        Me.Heure = Heure
        Me.Remarque = Remarque
    End Sub

    Sub New(ByVal enregistrement As ArrayList)
        Me.Id = enregistrement.Item(0)
        Me.Nom_complet = enregistrement.Item(2)
        Me.Date_rendez_vous = enregistrement.Item(1)
        Me.Cause = enregistrement.Item(3)
        Me.Heure = enregistrement.Item(4)
        Me.Remarque = enregistrement.Item(5)
    End Sub

    Sub New()

    End Sub

End Class
